OTLE 

mmm of wobjb 

ACCmkCY 



m&m of m$ 



UNIVERSITY OF ILLINOIS 
DIGITAL COWJOT 



txmm mwim iXr.lft 



C«>lax lumber Arithmetic (DOI or SADOl) 

Interpretive Routine with IS «Pd*re> entered as a closed 

routing left by an 6J or 8ff ««**r* 

248 

0, 1* 2* 5 . 

Abeut 9 deeimla 

During lotput l®o®&im 3 mm% cmUin a % 2 '? where 

a, a+1, mH m& is. the location «f tt* fluting deciml 

aceiaauiatBr, 

£be mder i» r«*f«rr«il t& ®m mmmry $mcri$tim of 

th« floating deciml «*ithsiet|e awfci** fv* mil details 

«f m$&* 3&« <U£f*reiw«* &re fives tare* 



85 



^r 



ia3 a 



&««•*«£- eegteftl if the rjjd jeu* of F is > 0. 

Itegtiace F by e»e masher re&d from the tape 
yattftad a^ the ***l part # ^glmry part, . 
and opoeettt* Mima** tte m$mm% a space 
$r carriage return should he #tanehed* For 

esc&iBfle? 

{,8973. - i ..063fi > x 1Q X ° ^©uld be punched as 

* 8971 * 0632 + 10 g|»mce, 
Minting follows the same form* 

tErwurfte* eo&tr&l to the ®rdtory order 00 the 
rjyfeft haad sM« ^a, 

<*&&tr&X *etc. 



This last modification -was necessitated by the 'fact that 
two memory registers are used for handling a single 
mmber. For this rea&en one will in geaaer&l wish t© 
step, addressee referring to nw8ws by tv*. 



~2- 

t|SE Of ATOLIAJRY EOUTOW Auxiliary routines are entered in the same way as in the 

floating deeimL routine • If octroi is transferred to 
word 19 ©r 29 the saiae effect is produced as in the case 
of the floating decfcaal routine. Several auxiliaries 
are avail&hle far use with the etasplex number routine. 
These are included within the sain body of the routine 
and nay he entered hy means of @J orders with the following 
■ gtwn addresses relative to the routine? 
Address «f 8J Order Auxiliary 

■M« , n i i»iri)<nTi l <| i ii »i '' i )i ii nWl i l)t>|ri-«llt ill l» i « i i, ii >« i ll l limi l llWiillli| l »irir> , i igmmnr i m ii mfr ii n i l IT 

kg Replace F hy the complex conjugate 

of P. 
210 Replace F hy the modulus of F. 

225 . 'fiaj&aee F hy the principal value 
of the square root of F. 
If the last tw# auxiliaries are not needed one usay 
omit word 210 and all wards following it from the routine 
since they are used only hy the auxiliaries • 
HAKDLIKG OF S&MSS laca nsa&er is represented in the form (A + IB) x 1<P 

whei«e 1 > fAj + |BJ > l/lO approximately, and 
%£ > p > *$22* In the floating decimal accumulator 
a/2 Is la 83 as a fractiam, p.+ 512 is in 133 as an 
integer and B/2 is in 283 as a traction* When a number 
is pacfced for storage in another part of the memory it 
uses only two registers and the exponent p is divided 
equally between the two* 

$he aus&er aero is an exception and is represented 
as a nus&er with A « B * and p « -512 » ^hus zero is 
represented in the sa*e way as the aachine representation 
of aero. Hkem capacity is exceeded a stop is encountered 
at wort IXB of the routine. Ihis stop is a 3^ 102L 
erdar. The h-reaisters are located from word 191 to 
next XfB af the routine. 

RT: 10/13/60 



M3S 

COOT) BY 
AFER0VK5 BY 




["location 





7 



10 



11 



12 



13 



14 



15 



16 



ORDER 

-00K(A5)"~ 
00 59F 

LO 19% 

LO 200L 

ii-0 2L 

50 500F 

S5 20F 

40 3F 
32 183L 
1*6 8L 
l4 209L 
46 7L 
10 12F 
iA 43L 
46 11L 
50 F 

41 IF 
L5 F 
40 F 
00 5F 

42 IF 
S5 F 
40 2F 
26 F 

75 201L 
00 4F 
40 S3 
50 2S3 
75 201L 
00 4F 
40 2S3 

7J F 
L4 S3 
40 S3 



NOTES 



PAGE 1 



A 5 



V 



Special orders for entry- 
Plant either 50 n S5 20F or . 
L5 nF .- 00 20F in 2L 

Select order to "be obeyed 

Adjust address if necessary- 
Insert address in 8L and 1 + address in JL 

Form switch order 



Unpack (A + IB.) x 10 P placing A in 0^ B in 2 S 
and p + 512 in 1 



10 4 
U A x ~g x 2 in S3 



10 4 

- Bxg x 2 in 1S3 



A x Kp^ + A* in S3 



LOCATION , ORDER 



m<w& 
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17 
18 



20 

22 

23 
24 

25 
26 

27 

28 

29 
30 
31 
32 
33 



50 2F 
7J F 
L4 2S3 
40 2S3 
50 S3 
L3 S3 
t£ 2S3 
56 97L 
LO l48L 
36 2% 
iA- 150L 
32 11L 
26 2% 



i 




Kl F 
L4 1S3 
26 2%L 
7J 3SI, 
40 S3 
50 2S3 
7J" 32L 
40 2B3 
F5 253 
40 1S3 
26 19L 

36 ax 

L4 20£L 

7X. *095F. 

IX 4095F 

©0 F 

00 1000 0000 0000 J 

00 F ■ I 

00 1000 0000 003J 



-Bx lO 3 ^ + B* la 2S3 









far |AJ + {B{ * 



or j&§ + |l{ > 1/2 



©r |A} + |b| < 1/20 



p * 1 is 103 



A x .1 m S3 B x '.1 to 2S3 

p ■ + 1 in 1S3 
Recycle 



~ Be*e&ter routine 



LOCATION 

35 
36 

37 
38 

39 
ko 

k2 
k3 
kk 
k5 
k£ 
kj 
kB 
kg 
50 



ORDER 



00 F } 

00 1000 0000 aocr 

00 F ; 

00 1000 0000 OJ 

00 F j 

00 1000 0000 J 

00 F l 

00 1000 OOOJ 

00 F j 

00 10)0 OQJ 

00 F I 

00 1000 OJ 

00 F J 

00 1000 J 

00 F 

00 $12T 

LI 2S3 

22 10L 

00 172L 

00 31L 

LI F 

26 60h 

22 93L 
L5 20*& 
22 VJOL 
L5 2C&L 
2$ XJXL 
JO lOkF 
22 6lL 
L5 f 
26 95L 
LI IF 
, 26 83L 



wktss 



PAGE 3 



f <! 



; 

! 



CoaataBta 



b 1 



b 2 



b 3 
b 4 
b 5 

b 6 



.OCATION 



51 



52 
53 
54 
55 
56 

57 
58 

59 
60 
61 
62 
63 
64 

65 
66 

67 



ORDER 

LI 4il 

22 72L 
81 4F 
26 110L 
L5 132L 
22 135L 
4l IF 
22 l64L : 
L5 8L 
26 9^L 
13 3F 
22 182L 
L5 5F 
22 €L 

92 151? 

26 133L 
13 8L 

40 F 

ia 2F 

40 2F 

■10 1S3 
LO IF 

50 F 
32 6% 
40 3F 
50 2S3 
13 2F 
40 2S3 
S5 F 
40 2F 
50 S3 
L5 F 
40 S3 



NOTES 
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A 5 



b 7 

b 8 

b 9 

b K 

b S 

b H 

b J 

b F 

b L 

-F©ar» • h a&t • B 



■CojBpure 



•a of tft€ two n\mibe^ to be added 



I 



i ii *i imM m0m*m*m*****&m*mmam m'<« i rwtQ.f!»iii i tm n 



Interchange K(2> and N(203)* Put N(l) in 
— 1S3 and N(S3) in a if B(l83) < Nft). Put 
|*r(lS3) - N(lJ| in A 



< nwmw ii h ii whwi Iiiii wi ii I ii ii nw » wiwn(ii B Wi i *^r w n»- i Pi»fm<n t wn W Mn»ai«l wiW»iMa«M»wt 



MWUHWjW i' H W hi "» « « w 



»^vm»mi^ttm»'i0MM^w^mh^umm<M 



wemzm 



7& 

TI- 
TS 

13 
Ik 

73 



77 



19 



$3 



L3 IF 

f-t -* j "3!* 
ik k% 

k£ Vfl* 

LO 20&L 

22 X5L 
I* IF 
X& -183 
^0 183 

Ml 33P 

1$ S3 

3® F 

*fyr S3 
kQ 83 
30 St 

"P, M5 
ik S3 

k® 63 

13 3T 
22 3Jto 
F*207X» 

"MP <** 

7£* 

40 3T 



JRJ23B9 



u M«et pww «f 310 



; f~ Test t# see »ti# «s£ tip© ambers is > 



K^ 



fttt ? * % £* 333 



AxB ! la.- 3 



{fc 1 xl + ixi')x2 ii5 



L 4 x A f t* 






0ks4' •>l»*}x£'!»& 

Standardize result 
2J§B5 • (9 * 33£) in & 



A 2 1» 3 



wuir^r i ii^ Mjimn t i nmnmi i -iH! nnnm iU ht aai ff i i ii in m i j im m < m»%)tw i i" * » , » « | W | " « wa"i"»" 



■7I0N 



3DER 



^7 

'■•' i 

m 

89 

91 
92 

93 

94 

95 
96 
97 
96 

99 
100 

101 
102 



75 2F 
lA 3F 

00 2F 

50 F 

^ 3F 

S5 f 

kQ ? 
50 2F 
71 3BL 
66 3F 
35 F 
40 2F 
26 51L 
k® S3 
LX 2F 
26 96L 



to 

10 

to 

L5 
to 
26 

L5 
46 

L5 

Jl 
26 

L0 

3^ 
50 



S3 
2F 

2S3 

IF 

1S3 

2% 

108L 

?L 

10% 

1S3 

101L 

205L 

108L 

207L 

102L 

208L 



NOTES 

i i. i ). !);:m i ..T i| -j'."il ' . ii ' ff 1 1 rifl JBiiu 1 r > i " : T' l 1 ,j ..' I' '- :'. 1'J )".">; i Wl Wi'H ' .'f 
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(A + B ) x 4 in 3 



Ax • X 

w»i* i i i fi»n' mMim*lmw<imM» torn jyg Qf 

(A 2 + T)x h 



** ISC • x * a 

<WM ^.» , l . l »»i W i l . ^g. l ««, lBM .. ..w M | > . 3jj_ ^ 



Go to multiply 



-Fora - A a*i& * B 



Form A and B 



1 HAnd place in S3, 233, and p in 1S3 



n 



-Plant n and n + 1 



Test for p < -512 



Test for p > + 512 



i WiH»»il.il ii aai « h i i.wi jhP ii ut!WW i «>«i* i t i *IW«lW.^^ ^ 



LOCATION 
103 

104 

105 
106 
10? 
108 
109 
110 
111 

113 

115 
116 
117 
118 
119 



ORDER 

JO S3 
S3 F 
40 F 
L5 2S3 
Fk 203L 
40 2F 

L5 1S3 
50 2F 

10 5F 

l4 F 

40 F 
S5 F 
40 F 
26 29L 
40 2F 

49 IF 
L5 2F 
00 39F 
52 U3L 
LI IF 
40 IF 
23 H7L 

50 IF ■ 
7J 32L 
40 IF 
50 IF 
75 2F 
00 39F 
L4 F 
40 F 
81 4F 
40 2F 
LO 203L 
32 120L 



NOTES 
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Eliminate last five "bits of A and place injD 



\- 



i ! 



Round off for B and place in 2 



Pack (A + i B) x 10^ into two registers 



r~i 



Store sign and set N(l) to + l/2 



n 



-n 



__±i/2 F x 10 in 1 



-n 



- l/2 F x 10 in 



- Bead digit and test for sign 



LOCATION 


ORDER 


NOTES PAGE 8 ! 


120 


26 ll^L 
LI 22kh 






121 


kO 12kL 




— Binary switch for real or iiaaginary part 




32 123L 






122 


L5 F 








kO S3 


■ 


— Real part 


123 


22 HOL 


:- 


•4 




L5 F 






12k 


kO 2S3 
kl F 


■ 

L. 


Imaginary part 


125 


Jk 28% 


;' 






00 If F 




- Ixponent foriaation and test for fifth hole 


126 


91 *fF 


;i 






% 125L 


,- 




127 


22 127L 


■; 


w&SX© 




LI 2F 






128 


IA- 203L 




— Test sign of exponent 




36 130L 


~ 




129 


SI F 


.. 






C.C. X.j)\Jhi 


■ 


— Adjust sign 


130 


S5 F 








Lk kXL 


" 




131 


kO 1S3 




Store in 1S3 




26 19L 


: 


Go to standardize 


132 


00 F 








00 2F 






133 


50 3F 








00 19F 




— Set n columns 


13k 


k2 132L 
47 132L 






135 


26 29L 








FO 209L 




Test for new row 


] 136 


36 138L 








92 131F 







)CATION 
137 

138 

139 

1*K) 
l4l 

lh-3 
Ikk 

lk8 

150 

151 
152 
153 



Form aev row 



Si&n of A in t Q 
Round off 



-Print loop 



ORDER 

92 513F 

00 2^F 
46 132L 

50 S3 

ST F 
LO 208L 
10 39F 
00 kOF 
Ik 51L 
L4 20% I 
26 1^3L 
75 203L 
00 36F 
82 kT 
10 J*OF 
L5 8L 
LO 122L 
k€ SL 
32 l42L 
26 l^TL 
92 961F 
LI 4SL 
kO 48L 
32 1^% 
22 151L 
L5 3F 
46 8l 
50 2S3 
2/. 139L 
L5 1S3 
LO 4lL 
kO F 
32 15^L 
92 708F 



NOTES 



PAGE 9 



A 5 



■-Form 10 + sign to print K or S in following 

loop 



Waste 



-Binary switch for real or ifflaginary part 



l --Reset coiaater and print imaginary part 



-Test for sign of exponent 



LOCATION j 


ORDER j NOTES 

j ■ ■ ■ ■■ ; , , i , . : , 


PAGE 10 


154 


! 
26 155L 1 ; 

92 644F i L 

! 1 






155 


L7 F 

10 38F 




■ 




156 


66 203L 

40 F 




-Form digits of exponent 




15? 


67 203L 
4o IF 








158 


10 IF 




_ 




159 • 


S3 F 
36 161L 
S5 F 




Test for two digit exponent 




160 


00 36F 

82 4F 




-Print first of 3 digits 




161 


L5 IF 
00 4F 


~ 


— * 

j 

i 
1 




162 


L4 F 
00 31F 




1 

_ Print last two digits 




163 


82 8F 
92 965F 








164 


26 29L 








165 


L5 3F 
36 I78L 
46 IF 




Test for h £ & 




166 


50 IF 
75 33L 




n -2 
-Make A = ^ x 10 




167 


00 18F 
40 S3 








168 


41 .".63 
F5 2S3 








169 


F4 4lL 
40 1S3 




-Make B = and p = 513 




! 170 


26 19L 








i 


LO 200L 




Set instruction counter 





A 5 



LOCATION 


ORDER 


wms bige 11 


171 


kO IF 








I£ 5F 




~~l 


172 


k$ IF 


' 


- Tet&t f «r fc £ 




52 175L 




LI 


175 


L5 S3 


: ' - 


"T 




32 17^L 


i ; 


■ 


17^ 


26 29L 




- Transfer ceatrol if A > 




L5 IF 

I ■ 


, 




175 


22 1L 




J 




W 191L 




—1 


176 


IA 205L 


■ 


- Mvxmce fc register 




**8 I91L 




) 


177 


00 28F 
22 173L 


1 


Test for transfer 


178 


1§ 2®F 

^2 IF 


: ■ 


» is 1 


179 


LI IF 


1 




50 191L 






180 


Lh 19OL 




- Set B register 




^0 (191 )L 






181 


26 2% 


1 




' 


k6 (191 fr 




■ 


IBs. 


26 2% 








46 183L 






183 


22 F 






, 


50 3F 






l&t 


01 3F 








IA- 17% 






185 


te 175L 






: 


^2 1T6L 






186 


k2 180L 








M2.181L 




*- Set B addresses 


I87 


^2 188L 






i. 


jo 19% 




- 



A 5 



LOCATION 
188 

189 



191 
192 

193 

195 

196 

197 



199 

200 

203 
20^ 



ORDER 

1 1 . n; 1. :. .», mil, m i 

11 3F 
L5 191L 
Sk F 
26 kh 
80 F 

00 2§M$F 
80 F 
00 F 
80 F 
00 F 
80 F 
00 F 
80 F 
00 F 
80 F 
00 F 
80 F 
00 F 
80 F 
00 F 
80 F 
00 F 

LL kO$kj 
kK kOfSF 
53 F 
S5 F 
5® F 

5S: IT 
S5 F 
00 F 
00 10F 
50 F 
S5 20F 



KOTES 
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-b register 



- Constants 



LOCATION 



ORDER 



NOTES 
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205 
206 
20J 
208 
209 
210 

212 
213 
21k 

216 
217 

219 
221 



00 2F 
00 IF 
00 172L 
00 k2L 
00 F 

00 102kt 
LL ^095F 
LL koSkf 
00 IF . 
00 F 

22 210L 
F5 210L 
26 213L 

! L5 2F 
kO S3 

23 18L 
k2 223L 
50 S3 
7J S3 

40 IF 
50 283 
7J 2S3 
L4 IF 
kO IF 

41 F 

k2 22JL 

10 IF 
SJ F 
JfG 2F 
50 F 
L5 IF 
66 2F 



gtSiP i H Uff ffl Hawa aica Bw 



.*J 



— 



- To form modulus eater closed Modulus subroutine 
at 213 



2 2 

A +B ill 



WSiSirf© 



Square root subroutine (see R 1 - 116) 



i ^ w m .- uib ... J pmvfai mm rm iflt n iM— nuMWt i ii I HHM '-—** irtWWi 



LOCATION 



222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 
236 

237 
238 



OEDER 






PAGE 14 



S5 F 


LO 2F 


10 IF 


32 F 


L4 2F 


26 220L 


22 225L 


F5 225L 


26 213L 


L5 2F 


L6 S3 


40 IF 


41 F 


F5 226L 


26 218L 


L7 2S3 


50 F 


66 2? 


85 F 


40 IF 


F5 1S3 


L4 4lL 


1Q IF 


40 1S3 


sj f 


32 243L 


L5 S3 


32 238L 


L5 IF 


50 2F 


40 2F 


S5 F 


40 IF 


F5 2F 



J '. |. :;.j»'; '.' : i iT"rr"Tr'i'i' -^y-' [■'•■"■■'' -rt-fi--in-mitm wi -it i-ir rm ii rn- i 



A 5 



r 

r 



To f orm c 
213 



lex square root form modulus vith 



n 



r 



,2 JZ 

+ 



A + B + Ja| in 1 



Y . ' il i w ii iiH i t . a i .u y 
I A + B # i&| in 2 







Adjust exponent and test for p odd 



.— 



- If A Is negative put H(l) In 2 and N(2) in 1 



mrt-<MmKiia*wimTViibm*$na>¥<>' : ttix!9m><! i r " '«i ' iw."t.Fn 



LOCATION 



NOTES 
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259 

2^2 

2kk 

2k6 
2k7 



. 10 IF 
I kO S3 

! 

j F5 IP 

! 10 IP 

i 

j 50 2S3 

I kO 2S3 

j 35 F 

1 36 1% 

j 26 ^2L 

50 IF 

7J 2^7L 

40 IF 

50 2F 

7J 2V7L 

HO 2F 

26 235L I 
i 00 F 

00 3162 2776 60X7 J 



Put result in floating accOTOator 



\- Make sign of imaginary P 9 ^ same aS si & a of B 






► Multiply by fll 



